home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / php / pear / adodb / drivers / adodb-sybase_ase.inc.php < prev    next >
PHP Script  |  2005-05-17  |  3KB  |  114 lines
  1. <?php
  2. /*
  3.   V4.63 17 May 2005  (c) 2000-2005 John Lim (jlim@natsoft.com.my). All rights reserved.
  4.   Released under both BSD license and Lesser GPL library license. 
  5.   Whenever there is any discrepancy between the two licenses, 
  6.   the BSD license will take precedence.
  7.   
  8.   Set tabs to 4.
  9.   
  10.   Contributed by Interakt Online. Thx Cristian MARIN cristic#interaktonline.com
  11. */
  12. class ADODB_sybase_ase extends ADODB_sybase {
  13.      var $databaseType = "sybase_ase";
  14.     
  15.      var $metaTablesSQL="SELECT sysobjects.name FROM sysobjects, sysusers WHERE sysobjects.type='U' AND sysobjects.uid = sysusers.uid";
  16.      var $metaColumnsSQL = "SELECT syscolumns.name AS field_name, systypes.name AS type, systypes.length AS width FROM sysobjects, syscolumns, systypes WHERE sysobjects.name='%s' AND syscolumns.id = sysobjects.id AND systypes.type=syscolumns.type";
  17.      var $metaDatabasesSQL ="SELECT a.name FROM master.dbo.sysdatabases a, master.dbo.syslogins b WHERE a.suid = b.suid and a.name like '%' and a.name != 'tempdb' and a.status3 != 256  order by 1";
  18.  
  19.     function ADODB_sybase_ase()
  20.     {
  21.     }
  22.     
  23.     // split the Views, Tables and procedures.
  24.     function &MetaTables($ttype=false,$showSchema=false,$mask=false)
  25.     {
  26.         if ($this->metaTablesSQL) {
  27.             // complicated state saving by the need for backward compat
  28.             
  29.             if ($ttype == 'VIEWS'){
  30.                         $sql = str_replace('U', 'V', $this->metaTablesSQL);
  31.             }elseif (false === $ttype){
  32.                         $sql = str_replace('U',"U' OR type='V", $this->metaTablesSQL);
  33.             }else{ // TABLES OR ANY OTHER 
  34.                         $sql = $this->metaTablesSQL;
  35.             }
  36.             $rs = $this->Execute($sql);
  37.             
  38.             if ($rs === false || !method_exists($rs, 'GetArray')){
  39.                     return false;
  40.             }
  41.             $arr =& $rs->GetArray();
  42.  
  43.             $arr2 = array();
  44.             foreach($arr as $key=>$value){
  45.                     $arr2[] = trim($value['name']);
  46.             }
  47.             return $arr2;
  48.         }
  49.         return false;
  50.     }
  51.  
  52.     function MetaDatabases()
  53.     {
  54.             $arr = array();
  55.             if ($this->metaDatabasesSQL!='') {
  56.                 $rs = $this->Execute($this->metaDatabasesSQL);
  57.                 if ($rs && !$rs->EOF){
  58.                     while (!$rs->EOF){
  59.                         $arr[] = $rs->Fields('name');
  60.                         $rs->MoveNext();
  61.                     }
  62.                     return $arr;
  63.                 }
  64.             }
  65.             return false;
  66.     }
  67.  
  68.     // fix a bug which prevent the metaColumns query to be executed for Sybase ASE
  69.     function &MetaColumns($table,$upper=false) 
  70.     {
  71.         $false = false;
  72.         if (!empty($this->metaColumnsSQL)) {
  73.         
  74.             $rs = $this->Execute(sprintf($this->metaColumnsSQL,$table));
  75.             if ($rs === false) return $false;
  76.  
  77.             $retarr = array();
  78.             while (!$rs->EOF) {
  79.                 $fld =& new ADOFieldObject();
  80.                 $fld->name = $rs->Fields('field_name');
  81.                 $fld->type = $rs->Fields('type');
  82.                 $fld->max_length = $rs->Fields('width');
  83.                 $retarr[strtoupper($fld->name)] = $fld;
  84.                 $rs->MoveNext();
  85.             }
  86.             $rs->Close();
  87.             return $retarr;    
  88.         }
  89.         return $false;
  90.     }
  91.     
  92.     function getProcedureList($schema)
  93.     {
  94.             return false;
  95.     }
  96.  
  97.     function ErrorMsg()
  98.     {
  99.         if (!function_exists('sybase_connect')){
  100.                 return 'Your PHP doesn\'t contain the Sybase connection module!';
  101.         }
  102.         return parent::ErrorMsg();    
  103.     }
  104. }
  105.  
  106. class adorecordset_sybase_ase extends ADORecordset_sybase {
  107. var $databaseType = "sybase_ase";
  108. function ADORecordset_sybase_ase($id,$mode=false)
  109.     {
  110.         $this->ADORecordSet_sybase($id,$mode);
  111.     }
  112.     
  113. }
  114. ?>